home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / me39doc.arc / TRAND.CMD < prev   
Encoding:
Text File  |  1987-04-28  |  467 b   |  24 lines
  1.     set %try 0
  2.     set %sum 0
  3.     insert-string "Rolls: "
  4. *nextry
  5.     set %roll &rnd 100
  6.     !if &greater $curcol 70
  7.         newline
  8.         insert-string "       "
  9.     !endif
  10.     set %sum &add %sum %roll
  11.     insert-string &cat %roll " "
  12.     update-screen
  13.     set %try &add %try 1
  14.     !if &less %try 300
  15.         !goto nextry
  16.     !endif
  17.  
  18.     newline
  19.     newline
  20.     insert-string &cat &cat "Sum of rolls: " %sum "~n"
  21.     insert-string &cat &cat "Average roll: " &div %sum 300 "~n"
  22.     update-screen
  23.     unmark-buffer
  24.